home *** CD-ROM | disk | FTP | other *** search
/ How Many Bugs in a Box / How Many Bugs in a Box.cdr / bugs / act1 / 00216.ls < prev    next >
Encoding:
Text File  |  1995-04-03  |  271 b   |  15 lines

  1. on exitFrame
  2.   global ringframe, frate, endage
  3.   set pframe to ringframe + (the timer / frate)
  4.   if the frame < pframe then
  5.     if pframe > endage then
  6.       exit
  7.     end if
  8.     go(pframe)
  9.   else
  10.     if the frame > pframe then
  11.       go(the frame)
  12.     end if
  13.   end if
  14. end
  15.